home *** CD-ROM | disk | FTP | other *** search
/ Explorer - Mosaic & Web / Explorer - Mosaic & Web.iso / helpers / ghostvew / src / gvpdlg.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-01  |  23.9 KB  |  801 lines
  1. /* Copyright (C) 1993, 1994, Russell Lang.  All rights reserved.
  2.   
  3.   This file is part of GSview.
  4.   
  5.   This program is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the GSview Free Public Licence 
  9.   (the "Licence") for full details.
  10.   
  11.   Every copy of GSview must include a copy of the Licence, normally in a 
  12.   plain ASCII text file named LICENCE.  The Licence grants you the right 
  13.   to copy, modify and redistribute GSview, but only under certain conditions 
  14.   described in the Licence.  Among other things, the Licence requires that 
  15.   the copyright notice and this notice be preserved on all copies.
  16. */
  17.  
  18. /* gvpdlg.c */
  19. /* Dialog boxes for PM GSview */
  20. #include "gvpm.h"
  21.  
  22. BOOL get_string_busy;
  23. char get_string_prompt[MAXSTR];
  24. char get_string_answer[MAXSTR];
  25. void listbox_getpath(HWND hwnd, char *path, int listbox);
  26. void listbox_directory(HWND hwnd, char *path, int listbox, int stext);
  27.  
  28. MRESULT EXPENTRY 
  29. InputDlgProc(HWND hwnd, ULONG mess, MPARAM mp1, MPARAM mp2)
  30. {
  31.     switch(mess) {
  32.     case WM_INITDLG:
  33.         WinSendMsg( WinWindowFromID(hwnd, ID_ANSWER),
  34.             EM_SETTEXTLIMIT, MPFROM2SHORT(MAXSTR, 0), MPFROMLONG(0) );
  35.         WinSetWindowText( WinWindowFromID(hwnd, ID_ANSWER),
  36.             get_string_answer );
  37.         WinSetWindowText( WinWindowFromID(hwnd, ID_PROMPT),
  38.             get_string_prompt );
  39.         WinSendMsg( WinWindowFromID(hwnd, ID_ANSWER),
  40.             EM_SETSEL, MPFROM2SHORT(0, strlen(get_string_answer)), MPFROMLONG(0) );
  41.         WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd, ID_ANSWER));
  42.             break;
  43.         case WM_COMMAND:
  44.             switch(SHORT1FROMMP(mp1)) {
  45.                 case DID_OK:
  46.                     WinEnableWindow(WinWindowFromID(hwnd, DID_OK), FALSE);
  47.                     WinQueryWindowText(WinWindowFromID(hwnd, ID_ANSWER),
  48.                         MAXSTR, get_string_answer);
  49.                     WinDismissDlg(hwnd, DID_OK);
  50.                     break;
  51.         case ID_HELP:
  52.             get_help();
  53.             return (MRESULT)TRUE;
  54.             }
  55.             break;
  56.     }
  57.     return WinDefDlgProc(hwnd, mess, mp1, mp2);
  58. }
  59.  
  60. BOOL
  61. get_string(char *prompt, char *answer)
  62. {
  63.     if (get_string_busy) {
  64.         message_box("get_string is busy",0);
  65.         return FALSE;
  66.     }
  67.     get_string_busy = TRUE;
  68.     strncpy(get_string_prompt, prompt, MAXSTR);
  69.     strncpy(get_string_answer, answer, MAXSTR);
  70.     
  71.     if (WinDlgBox(HWND_DESKTOP, hwnd_frame, InputDlgProc, 0, IDD_INPUT, NULL)
  72.        == DID_OK) {
  73.         strncpy(answer, get_string_answer, MAXSTR);
  74.         get_string_busy = FALSE;
  75.         return TRUE;
  76.     }
  77.     get_string_busy = FALSE;
  78.     return FALSE;
  79. }
  80.  
  81.  
  82. BOOL 
  83. get_filename(char *filename, BOOL save, int filter, int title, int help)
  84. {
  85. FILEDLG FileDlg;
  86. FILE *f;
  87. char szTitle[MAXSTR];
  88. char *p;
  89. int i;
  90.     memset(&FileDlg, 0, sizeof(FILEDLG));
  91.     FileDlg.cbSize = sizeof(FILEDLG);
  92.     if (save)
  93.         FileDlg.fl = FDS_CENTER | FDS_SAVEAS_DIALOG;
  94.     else
  95.         FileDlg.fl = FDS_CENTER | FDS_OPEN_DIALOG;
  96.     if (help) {
  97.         load_string(help, szHelpTopic, sizeof(szHelpTopic));
  98.         FileDlg.fl |= FDS_HELPBUTTON;
  99.     }
  100.     if (title) {
  101.         load_string(title, szTitle, sizeof(szTitle));
  102.         FileDlg.pszTitle = szTitle;
  103.     }
  104.     _getcwd(FileDlg.szFullFile, sizeof(FileDlg.szFullFile));
  105.     for (p=FileDlg.szFullFile; *p; p++) {
  106.         if (*p == '/')
  107.         *p = '\\';
  108.     }
  109.     if (filter) {
  110.         i = strlen(FileDlg.szFullFile);
  111.         if (i && FileDlg.szFullFile[i-1]!='\\') {
  112.         strcat(FileDlg.szFullFile, "\\");
  113.         i++;
  114.         }
  115.         load_string(IDS_FILTER_BASE+filter, FileDlg.szFullFile+i, sizeof(FileDlg.szFullFile)-i);
  116.     }
  117.     WinFileDlg(HWND_DESKTOP, hwnd_frame, &FileDlg);
  118.     if (FileDlg.lReturn == DID_OK) {
  119.         f = (FILE *)NULL;
  120.         if ( !save && ((f = fopen(FileDlg.szFullFile, "rb")) == (FILE *)NULL) ) {
  121.         gserror(IDS_FILENOTFOUND, NULL, MB_ICONEXCLAMATION, SOUND_ERROR);
  122.         return FALSE;
  123.         }
  124.         if (f)
  125.             fclose(f);
  126.         strncpy(filename, FileDlg.szFullFile, MAXSTR);
  127.         p = strrchr(FileDlg.szFullFile, '\\');
  128.         if (p) {
  129.         *p = '\0';
  130.         _chdir(FileDlg.szFullFile);
  131.         }
  132.         return TRUE;
  133.     }
  134.     return FALSE;
  135. }
  136.  
  137. #ifdef NOTUSED
  138. /* Get page number from dialog box and store in ppage */
  139. BOOL
  140. get_page(int *ppage, BOOL multiple)
  141. {
  142.     char answer[MAXSTR];
  143.     if (doc == (PSDOC *)NULL)
  144.         return FALSE;
  145.     if (doc->numpages == 0) {
  146.         gserror(IDS_NOPAGE, NULL, MB_ICONEXCLAMATION, SOUND_NONUMBER);
  147.         return FALSE;
  148.     }
  149.     load_string(IDS_TOPICOPEN, szHelpTopic, sizeof(szHelpTopic));
  150.     sprintf(answer,"%d", psfile.pagenum);
  151.     if (!get_string("Select Page",answer) || atoi(answer)==0)
  152.         return FALSE;
  153.     *ppage = atoi(answer);
  154.     return TRUE;
  155. }
  156. #endif
  157.  
  158. /* information about document dialog box */
  159. MRESULT EXPENTRY 
  160. InfoDlgProc(HWND hwnd, ULONG mess, MPARAM mp1, MPARAM mp2)
  161. {
  162.     switch(mess) {
  163.         case WM_INITDLG:
  164.         info_init(hwnd);
  165.         break;
  166.         case WM_COMMAND:
  167.             switch(SHORT1FROMMP(mp1)) {
  168.                 case DID_OK:
  169.                     WinEnableWindow(WinWindowFromID(hwnd, DID_OK), FALSE);
  170.                     WinQueryWindowText(WinWindowFromID(hwnd, ID_ANSWER),
  171.                         MAXSTR, get_string_answer);
  172.                     WinDismissDlg(hwnd, DID_OK);
  173.                     break;
  174.             }
  175.             break;
  176.     }
  177.     return WinDefDlgProc(hwnd, mess, mp1, mp2);
  178. }
  179.  
  180.  
  181. /* show info about ps file */
  182. void
  183. show_info()
  184. {
  185.     WinDlgBox(HWND_DESKTOP, hwnd_frame, InfoDlgProc, 0, IDD_INFO, NULL);
  186. }
  187.  
  188.  
  189. /* About Dialog Box */
  190. MRESULT EXPENTRY AboutDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
  191. {
  192.   switch(msg) {
  193.     case WM_INITDLG:
  194.     WinSetWindowText( WinWindowFromID(hwnd, ABOUT_VERSION),
  195.             GSVIEW_VERSION );
  196.     break;
  197.     case WM_BUTTON1DBLCLK:
  198.     {POINTL pt;
  199.     RECTL rect;
  200.     HPS hps;
  201.     HBITMAP hbm;
  202.     rect.xLeft = 8; rect.xRight = rect.xLeft+216;
  203.     rect.yBottom = 8; rect.yTop = rect.yBottom + 8;
  204.     pt.x = SHORT1FROMMP(mp1);  pt.y = SHORT2FROMMP(mp1);
  205.     WinMapDlgPoints(hwnd, &pt, 1, FALSE);
  206.     if (WinPtInRect(hab, &rect, &pt)) {
  207.         hps = WinGetPS(hwnd);
  208.         hbm = GpiLoadBitmap(hps, NULLHANDLE, IDM_MISC, 64, 64);
  209.         pt.x = 250; pt.y = 12;
  210.         WinMapDlgPoints(hwnd, &pt, 1, TRUE);
  211.         WinDrawBitmap(hps, hbm, NULL, &pt, CLR_BLACK, CLR_WHITE, DBM_NORMAL);
  212.         GpiDeleteBitmap(hbm);
  213.         WinReleasePS(hps);
  214.     }
  215.     }
  216.     break;
  217.     case WM_COMMAND:
  218.       switch(SHORT1FROMMP(mp1)) {
  219.         case DID_OK:
  220.           WinDismissDlg(hwnd, TRUE);
  221.           return (MRESULT)TRUE;
  222.       }
  223.       break;
  224.   }
  225.   return WinDefDlgProc(hwnd, msg, mp1, mp2);
  226. }    
  227.  
  228. void
  229. show_about()
  230. {
  231.         WinDlgBox(HWND_DESKTOP, hwnd_frame, AboutDlgProc, 0, IDD_ABOUT, 0);
  232. }
  233.  
  234.  
  235. MRESULT EXPENTRY PageDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
  236. {
  237. char buf[40];
  238. int i;
  239. int notify_message;
  240.     switch(msg) {
  241.     case  WM_INITDLG:
  242.     if (page_list.multiple)
  243.         load_string(IDS_SELECTPAGES, buf, sizeof(buf));
  244.     else
  245.         load_string(IDS_SELECTPAGE, buf, sizeof(buf));
  246.     WinSetWindowText(hwnd, buf);
  247.     for (i=0; i<doc->numpages; i++) {
  248.         WinSendMsg( WinWindowFromID(hwnd, PAGE_LIST),
  249.             LM_INSERTITEM, MPFROMLONG(LIT_END), 
  250.         MPFROMP(doc->pages[map_page(i)].label) );
  251.     }
  252.     WinSendMsg( WinWindowFromID(hwnd, PAGE_LIST),
  253.             LM_SELECTITEM, MPFROMLONG(page_list.current), MPFROMLONG(TRUE) );
  254.     if (page_list.current > 5)
  255.         WinSendMsg( WinWindowFromID(hwnd, PAGE_LIST),
  256.         LM_SETTOPINDEX, MPFROMLONG(page_list.current - 5), (MPARAM)0 );
  257.     if (!page_list.multiple) {
  258.         WinEnableWindow(WinWindowFromID(hwnd, PAGE_ALL), FALSE);
  259.         WinEnableWindow(WinWindowFromID(hwnd, PAGE_ODD), FALSE);
  260.         WinEnableWindow(WinWindowFromID(hwnd, PAGE_EVEN), FALSE);
  261.     }
  262.     break;
  263.     case WM_CONTROL:
  264.     notify_message = SHORT2FROMMP(mp1);
  265.     switch (notify_message) {
  266.         case LN_ENTER:
  267.             if (SHORT1FROMMP(mp1) == PAGE_LIST)
  268.             WinPostMsg(hwnd, WM_COMMAND, (MPARAM)DID_OK, MPFROM2SHORT(CMDSRC_OTHER, TRUE));
  269.         break;
  270.     }
  271.     break;
  272.     case  WM_COMMAND:
  273.       switch(LOUSHORT(mp1)) {
  274.         case DID_OK:
  275.         i = (int)WinSendMsg(WinWindowFromID(hwnd, PAGE_LIST), LM_QUERYSELECTION, (MPARAM)0, (MPARAM)0);
  276.         page_list.current = (i == LIT_NONE) ? -1 : i;
  277.         for (i=0; i<doc->numpages; i++) {
  278.             page_list.select[i] = 0;
  279.         }
  280.         if (page_list.multiple) {
  281.             i = LIT_FIRST;
  282.             while ( (i = (int)WinSendMsg(WinWindowFromID(hwnd, PAGE_LIST), LM_QUERYSELECTION, (MPARAM)i, (MPARAM)0))
  283.             != LIT_NONE )
  284.             page_list.select[i] = TRUE;
  285.         }
  286.         else
  287.         page_list.select[page_list.current] = TRUE;
  288.             WinDismissDlg(hwnd, DID_OK);
  289.             return (MRESULT)TRUE;
  290.     case PAGE_ALL:
  291.         WinEnableWindowUpdate(WinWindowFromID(hwnd, PAGE_LIST), FALSE);
  292.         for (i=(int)WinSendMsg(WinWindowFromID(hwnd, PAGE_LIST), LM_QUERYITEMCOUNT, (MPARAM)0, (MPARAM)0)-1; i>=0; i--)
  293.         WinSendMsg(WinWindowFromID(hwnd, PAGE_LIST), LM_SELECTITEM, (MPARAM)i, (MPARAM)TRUE);
  294.         WinEnableWindowUpdate(WinWindowFromID(hwnd, PAGE_LIST), TRUE);
  295.             return (MRESULT)TRUE;
  296.     case PAGE_ODD:
  297.         WinEnableWindowUpdate(WinWindowFromID(hwnd, PAGE_LIST), FALSE);
  298.         for (i=(int)WinSendMsg(WinWindowFromID(hwnd, PAGE_LIST), LM_QUERYITEMCOUNT, (MPARAM)0, (MPARAM)0)-1; i>=0; i--)
  299.         WinSendMsg(WinWindowFromID(hwnd, PAGE_LIST), LM_SELECTITEM, (MPARAM)i, (MPARAM)!(i&1));
  300.         WinEnableWindowUpdate(WinWindowFromID(hwnd, PAGE_LIST), TRUE);
  301.             return (MRESULT)TRUE;
  302.     case PAGE_EVEN:
  303.         WinEnableWindowUpdate(WinWindowFromID(hwnd, PAGE_LIST), FALSE);
  304.         for (i=(int)WinSendMsg(WinWindowFromID(hwnd, PAGE_LIST), LM_QUERYITEMCOUNT, (MPARAM)0, (MPARAM)0)-1; i>=0; i--)
  305.         WinSendMsg(WinWindowFromID(hwnd, PAGE_LIST), LM_SELECTITEM, (MPARAM)i, (MPARAM)(i&1));
  306.         WinEnableWindowUpdate(WinWindowFromID(hwnd, PAGE_LIST), TRUE);
  307.             return (MRESULT)TRUE;
  308.     case ID_HELP:
  309.         get_help();
  310.         return (MRESULT)TRUE;
  311.       }
  312.       break;
  313.     }
  314.     return WinDefDlgProc(hwnd, msg, mp1, mp2);
  315. }
  316.  
  317. /* Get page number from dialog box and store in ppage */
  318. BOOL
  319. get_page(int *ppage, BOOL multiple)
  320. {
  321. int flag;
  322.     if (doc == (PSDOC *)NULL)
  323.         return FALSE;
  324.     if (doc->numpages == 0) {
  325.         gserror(IDS_NOPAGE, NULL, MB_ICONEXCLAMATION, SOUND_NONUMBER);
  326.         return FALSE;
  327.     }
  328.     page_list.current = *ppage - 1;
  329.     page_list.multiple = multiple;
  330.     if (page_list.select == (BOOL *)NULL)
  331.         return FALSE;
  332.     memset(page_list.select, 0, doc->numpages * sizeof(BOOL) );
  333.     if (page_list.multiple)
  334.         flag = WinDlgBox(HWND_DESKTOP, hwnd_frame, PageDlgProc, 0, IDD_MULTIPAGE, NULL);
  335.     else
  336.         flag = WinDlgBox(HWND_DESKTOP, hwnd_frame, PageDlgProc, 0, IDD_PAGE, NULL);
  337.     if ((flag == DID_OK) && (page_list.current >= 0))
  338.         *ppage = page_list.current + 1;
  339.     return (flag == DID_OK);
  340. }
  341.  
  342. MRESULT EXPENTRY BoundingBoxDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
  343. {
  344. static int bboxindex;
  345. float x, y;
  346. char buf[MAXSTR];
  347.     switch(msg) {
  348.     case WM_INITDLG:
  349.         bboxindex = 0;
  350.         load_string(IDS_BBPROMPT, buf, sizeof(buf));
  351.         WinSetDlgItemText(hwnd, BB_PROMPT, buf);
  352.         break;
  353.     case WM_COMMAND:
  354.             switch(SHORT1FROMMP(mp1)) {
  355.         case BB_CLICK:
  356.             if (!get_cursorpos(&x, &y)) {
  357.             WinDestroyWindow(hwnd);
  358.             hwnd_modeless = 0;
  359.             }
  360.             switch(bboxindex) {
  361.             case 0:
  362.                 bbox.llx = x;
  363.                 break;
  364.             case 1:
  365.                 bbox.lly = y;
  366.                 break;
  367.             case 2:
  368.                 bbox.urx = x;
  369.                 break;
  370.             case 3:
  371.                 bbox.ury = y;
  372.                 bbox.valid = TRUE;
  373.                 break;
  374.             }
  375.             bboxindex++;
  376.             if (bboxindex <= 3) {
  377.                 load_string(IDS_BBPROMPT+bboxindex, buf, sizeof(buf));
  378.                     WinSetDlgItemText(hwnd, BB_PROMPT, buf);
  379.             WinSetFocus(HWND_DESKTOP, hwnd_modeless);
  380.             return (MRESULT)FALSE;
  381.             }
  382.             /* all corners have been obtained so close dialog box */
  383.             WinDestroyWindow(hwnd);
  384.             hwnd_modeless = 0;
  385.             return (MRESULT)TRUE;
  386.         }
  387.     case WM_CLOSE:
  388.         WinDestroyWindow(hwnd);
  389.         hwnd_modeless = 0;
  390.         return (MRESULT)TRUE;
  391.     }
  392.     return WinDefDlgProc(hwnd, msg, mp1, mp2);
  393. }
  394.  
  395. BOOL
  396. get_bbox(void)
  397. {
  398. QMSG q_mess;        /* queue message */
  399.     bbox.valid = FALSE;
  400.     bbox.llx = bbox.lly = bbox.urx = bbox.ury = 0;
  401.     if (!display.page) {
  402.         gserror(IDS_EPSNOBBOX, NULL, MB_ICONEXCLAMATION, SOUND_ERROR);
  403.         return FALSE;
  404.     }
  405.     hwnd_modeless = WinLoadDlg(HWND_DESKTOP, hwnd_frame, BoundingBoxDlgProc, (HMODULE)0, IDD_BBOX, NULL);
  406.     WinSetWindowPos(hwnd_modeless, HWND_TOP, 0, 0, 0, 0, SWP_ZORDER | SWP_ACTIVATE);
  407.     while (hwnd_modeless) {
  408.         /* wait for bounding box to be obtained */
  409.           if (WinGetMsg(hab, &q_mess, 0L, 0, 0))
  410.             WinDispatchMsg(hab, &q_mess);
  411.     }
  412.     return bbox.valid;
  413. }
  414.  
  415. /* sounds stuff */
  416.  
  417. #define MAX_SYSTEM_SOUND 16
  418. char *system_sounds;
  419. char *sound_entry[MAX_SYSTEM_SOUND];
  420. char szNone[32];
  421. char szSpeaker[32];
  422. int system_num;
  423. MRESULT EXPENTRY SoundDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2);
  424.  
  425. int
  426. load_sounds(void)
  427. {
  428. char *p;
  429. int j;
  430. HINI hini;
  431.     /* add our two sounds */
  432.     sound_entry[0] = "";
  433.     sound_entry[1] = BEEP;
  434.     load_string(IDS_NONE, szNone, sizeof(szNone));
  435.     load_string(IDS_SPKR, szSpeaker, sizeof(szSpeaker));
  436.     /* get list of system sounds */
  437.     system_sounds = malloc(PROFILE_SIZE);
  438.     memset(system_sounds, 0, PROFILE_SIZE);
  439.     if (system_sounds != (char *)NULL) {
  440.          if ( (hini = PrfOpenProfile(hab, szMMini)) != NULLHANDLE ) {
  441.             PrfQueryProfileString(hini, "MMPM2_AlarmSounds", NULL, "\0\0", system_sounds, PROFILE_SIZE-1);
  442.             PrfCloseProfile(hini);
  443.         }
  444.     }
  445.     p = system_sounds;
  446.     for (j=2; p!=(char *)NULL && j<MAX_SYSTEM_SOUND && strlen(p)!=0; j++) {
  447.         if (atoi(p) > 100)
  448.             p += strlen(p) + 1;    /* ignore <Try it> */
  449.         if (strlen(p)==0)
  450.         j--;
  451.         else {
  452.             sound_entry[j] = p;    
  453.             p += strlen(p) + 1;
  454.         }
  455.     }
  456.     system_num = j;
  457.     return system_num;
  458. }
  459.  
  460. char *
  461. get_sound_entry(int index)
  462. {
  463.     return (sound_entry[index]);
  464. }
  465.  
  466. char *
  467. get_sound_name(int index)
  468. {
  469. static char buf[64];
  470. char *p, *q;
  471. HINI hini;
  472.     if (index==0)
  473.         return szNone;
  474.     if (index==1)
  475.         return szSpeaker;
  476.     /* get human readable name for system sound */
  477.     if ( (hini = PrfOpenProfile(hab, szMMini)) == NULLHANDLE )
  478.         return "";
  479.     PrfQueryProfileString(hini, "MMPM2_AlarmSounds", sound_entry[index], "##", buf, sizeof(buf));
  480.     PrfCloseProfile(hini);
  481.         p = strchr(buf,'#');
  482.         if (p != (char *)NULL) {
  483.             q = strchr(++p,'#');
  484.         if (q != (char *)NULL) {
  485.             *q = '\0';
  486.         return p;
  487.         }
  488.     }
  489.     return "";
  490. }
  491.  
  492. int 
  493. find_sound_name(char *entry)
  494. {
  495. int i;
  496.     for (i=0; i<system_num; i++) {
  497.         if (strcmp(entry, get_sound_entry(i))==0)
  498.             return i;
  499.     }
  500.     return -1;    /* no find */
  501. }
  502.  
  503. void
  504. add_sounds(HWND hwnd)
  505. {
  506. int ifile;
  507.     for (ifile=system_num-1; ifile>=0; ifile--)
  508.         WinSendDlgItemMsg(hwnd, SOUND_FILE, LM_INSERTITEM, MPFROMSHORT(0),
  509.              MPFROMP(get_sound_name(ifile)));
  510. }
  511.  
  512. void
  513. free_sounds(void)
  514. {
  515.     if (system_sounds != (char *)NULL)
  516.         free(system_sounds);
  517. }
  518.  
  519. void
  520. change_sounds(void)
  521. {
  522.     load_string(IDS_TOPICSOUND, szHelpTopic, sizeof(szHelpTopic));
  523.     WinDlgBox(HWND_DESKTOP, hwnd_frame, SoundDlgProc, 0, IDD_SOUND, NULL);
  524. }
  525.  
  526. MRESULT EXPENTRY SoundDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
  527. {
  528.     char buf[MAXSTR];
  529.     int ievent, ifile;
  530.     static struct sound_s dsound[NUMSOUND];    /* copy of sound[] */
  531.     char *szWaveFilter = "*.wav";
  532.     static char szPath[MAXSTR];
  533.     static int file_start;
  534.     char *p;
  535.  
  536.     switch (msg) {
  537.         case WM_INITDLG:
  538.         file_start = load_sounds();
  539.         for (ievent=0; ievent<NUMSOUND; ievent++) {
  540.             strcpy(dsound[ievent].file, sound[ievent].file);
  541.             load_string(sound[ievent].title, buf, sizeof(buf));
  542.             WinSendDlgItemMsg(hwnd, SOUND_EVENT, LM_INSERTITEM, 
  543.             MPFROMLONG(LIT_END), MPFROMP(buf));
  544.         }
  545.         ievent = 0;
  546.         WinSendDlgItemMsg(hwnd, SOUND_EVENT, LM_SELECTITEM, MPFROMLONG(ievent), MPFROMLONG(TRUE));
  547.         /* force update of SOUND_FILE */
  548.         WinSendMsg(WinWindowFromID(hwnd, SOUND_EVENT), WM_CONTROL,
  549.             MPFROM2SHORT(SOUND_EVENT, LN_SELECT),  MPFROMLONG(0));
  550.         break;
  551.         case WM_CONTROL:
  552.         if (mp1 == MPFROM2SHORT(SOUND_EVENT, LN_SELECT)) {
  553.             ievent = (int)WinSendDlgItemMsg(hwnd, SOUND_EVENT, LM_QUERYSELECTION,
  554.                 MPFROMSHORT(LIT_FIRST), MPFROMLONG(0));
  555.             if (ievent == LIT_NONE) {
  556.                 WinEnableWindow(WinWindowFromID(hwnd, SOUND_TEST), FALSE);
  557.                 break;
  558.             }
  559.             ifile = find_sound_name(dsound[ievent].file);
  560.             if (ifile >= 0) {
  561.                 strcpy(buf, get_sound_name(ifile));
  562.                 szPath[0] = '\0';
  563.                 WinEnableWindow(WinWindowFromID(hwnd, SOUND_TEST), ifile!=0);
  564.             }
  565.             else {
  566.                 /* must be WAVE file */
  567.                 strcpy(szPath, dsound[ievent].file);
  568.                 p = strrchr(szPath, '\\');
  569.                 if (p != (char *)NULL) {
  570.                     strcpy(buf,++p);
  571.                     *p = '\0';
  572.                 }
  573.                 else {
  574.                     strcpy(buf, szPath);
  575.                 }
  576.                 WinEnableWindow(WinWindowFromID(hwnd, SOUND_TEST), TRUE);
  577.             }
  578.             strcat(szPath, szWaveFilter);
  579.             WinEnableWindowUpdate(WinWindowFromID(hwnd, SOUND_FILE), FALSE);
  580.             WinSendDlgItemMsg(hwnd, SOUND_FILE, LM_DELETEALL, MPFROMLONG(0), MPFROMLONG(0));
  581.             listbox_directory(hwnd, szPath, SOUND_FILE, SOUND_PATH);
  582.             add_sounds(hwnd);
  583.             WinEnableWindowUpdate(WinWindowFromID(hwnd, SOUND_FILE), TRUE);
  584.             WinShowWindow(WinWindowFromID(hwnd, SOUND_FILE), TRUE);
  585.             ifile = (int)WinSendDlgItemMsg(hwnd, SOUND_FILE, LM_SEARCHSTRING, 
  586.                 MPFROM2SHORT(0,LIT_FIRST), MPFROMP(buf));
  587.             if (ifile != LIT_NONE)
  588.                 WinSendDlgItemMsg(hwnd, SOUND_FILE, LM_SELECTITEM, MPFROMLONG(ifile), MPFROMLONG(TRUE));
  589.             else
  590.                 WinSendDlgItemMsg(hwnd, SOUND_FILE, LM_SELECTITEM, MPFROMLONG(0), MPFROMLONG(TRUE));
  591.         }
  592.         if (mp1 == MPFROM2SHORT(SOUND_FILE, LN_SELECT)) {
  593.             ifile = (int)WinSendDlgItemMsg(hwnd, SOUND_FILE, LM_QUERYSELECTION,
  594.             MPFROMSHORT(LIT_FIRST), MPFROMLONG(0));
  595.             WinSendDlgItemMsg(hwnd, SOUND_FILE, LM_QUERYITEMTEXT, 
  596.             MPFROM2SHORT(ifile,sizeof(buf)), MPFROMP(buf));
  597.             ievent = (int)WinSendDlgItemMsg(hwnd, SOUND_EVENT, LM_QUERYSELECTION,
  598.             MPFROMSHORT(LIT_FIRST), MPFROMLONG(0));
  599.             if (ifile >= file_start) {
  600.             if (buf[0] == '[') { /* selected a directory */
  601.                 WinEnableWindow(WinWindowFromID(hwnd, SOUND_TEST), FALSE);
  602.             }
  603.             else { /* selected a WAVE file */
  604.                 int i = WinQueryDlgItemText(hwnd, SOUND_PATH, MAXSTR, dsound[ievent].file);
  605.                 if (dsound[ievent].file[i-1] != '\\') {
  606.                 dsound[ievent].file[i++] = '\\';
  607.                 dsound[ievent].file[i] = '\0';
  608.                 }
  609.                 listbox_getpath(hwnd, dsound[ievent].file + i, SOUND_FILE);
  610.                 WinEnableWindow(WinWindowFromID(hwnd, SOUND_TEST), TRUE);
  611.             }
  612.             }
  613.             else {
  614.             WinEnableWindow(WinWindowFromID(hwnd, SOUND_TEST), ifile!=0);
  615.             strcpy(dsound[ievent].file,get_sound_entry(ifile));
  616.             }
  617.         }
  618.         if (mp1 == MPFROM2SHORT(SOUND_FILE, LN_ENTER)) {
  619.             ifile = (int)WinSendDlgItemMsg(hwnd, SOUND_FILE, LM_QUERYSELECTION,
  620.             MPFROMSHORT(LIT_FIRST), MPFROMLONG(0));
  621.             WinSendDlgItemMsg(hwnd, SOUND_FILE, LM_QUERYITEMTEXT, 
  622.             MPFROM2SHORT(ifile,sizeof(buf)), MPFROMP(buf));
  623.             if (buf[0] == '[') {
  624.                 WinQueryDlgItemText(hwnd, SOUND_PATH, sizeof(szPath), szPath);
  625.             listbox_getpath(hwnd, szPath, SOUND_FILE);
  626.             strcat(szPath, szWaveFilter);
  627.             listbox_directory(hwnd, szPath, SOUND_FILE, SOUND_PATH);
  628.             add_sounds(hwnd);
  629.             }
  630.             else {
  631.                 WinSendMsg(hwnd, WM_COMMAND, MPFROMSHORT(SOUND_TEST), MPFROMLONG(0));
  632.             }
  633.         }
  634.         break;
  635.         case WM_COMMAND:
  636.         switch (SHORT1FROMMP(mp1)) {
  637.             case ID_HELP:
  638.             get_help();
  639.                 return (MRESULT)FALSE;
  640.             case SOUND_EVENT:
  641.             return (MRESULT)FALSE;
  642.             case SOUND_FILE:
  643.             return (MRESULT)FALSE;
  644.             case SOUND_TEST:
  645.                 ievent = (int)WinSendDlgItemMsg(hwnd, SOUND_EVENT, LM_QUERYSELECTION,
  646.                 MPFROMSHORT(LIT_FIRST), MPFROMLONG(0));
  647.             if (strlen(dsound[ievent].file)==0)
  648.                 return FALSE;
  649.             if (!(pfnMciPlayFile) || strcmp(dsound[ievent].file,BEEP)==0) {
  650.                 DosBeep(200,200);
  651.                 return FALSE;
  652.             }
  653.             if (isdigit(*dsound[ievent].file))
  654.                 play_system_sound(dsound[ievent].file);
  655.             else {
  656.                 if ((*pfnMciPlayFile)(hwnd_frame, dsound[ievent].file, 0, 0, 0))
  657.                     DosBeep(200,200);
  658.             }
  659.             return (MRESULT)FALSE;
  660.             case IDOK:
  661.             for (ievent=0; ievent<NUMSOUND; ievent++)
  662.                 strcpy(sound[ievent].file, dsound[ievent].file);
  663.             free_sounds();
  664.             WinDismissDlg(hwnd, DID_OK);
  665.             return (MRESULT)TRUE;
  666.             case DID_CANCEL:
  667.             free_sounds();
  668.             WinDismissDlg(hwnd, DID_CANCEL);
  669.             return (MRESULT)TRUE;
  670.         }
  671.         break;
  672.     }
  673.         return WinDefDlgProc(hwnd, msg, mp1, mp2);
  674. }
  675.  
  676. /* update path with current selection */
  677. /* returned path has a trailing \ if it is a directory */
  678. void
  679. listbox_getpath(HWND hwnd, char *path, int listbox)
  680. {
  681. int i;
  682. char buf[MAXSTR];
  683. char *p;
  684. ULONG len;
  685.     i = (int)WinSendDlgItemMsg(hwnd, listbox, LM_QUERYSELECTION,
  686.         MPFROMSHORT(LIT_FIRST), MPFROMLONG(0));
  687.     WinSendDlgItemMsg(hwnd, listbox, LM_QUERYITEMTEXT, 
  688.         MPFROM2SHORT(i,sizeof(buf)), MPFROMP(buf));
  689.     if (buf[0] == '[') {
  690.         /* directory or drive */
  691.         if (buf[1] == '-') { /* drive */
  692.         len = MAXSTR;
  693.         path[0] = toupper(buf[2]);
  694.         path[1] = ':';
  695.         path[2] = '\\';
  696.         DosQueryCurrentDir(buf[2]+1-'a', path+3, &len);
  697.         }
  698.         else {
  699.         if (strcmp(buf, "[..]")==0) {
  700.             if ((p = strrchr(path,'\\')) != (char *)NULL)
  701.                 *(++p)='\0';
  702.         }
  703.         else {
  704.                 if (path[strlen(path)-1] != '\\')
  705.                 strcat(path,"\\");
  706.             if ((p = strchr(buf, ']')) != (char *)NULL)
  707.                 *p = '\0';
  708.             strcat(path, buf+1);
  709.             strcat(path, "\\");
  710.         }
  711.         }
  712.     }
  713.     else {
  714.         if (path[strlen(path)-1] != '\\')
  715.         strcat(path,"\\");
  716.         strcat(path, buf);
  717.     }
  718. }
  719.  
  720. /* empty list box, then fill it with files and subdirectories given */
  721. /* by path and stext */
  722. /* if path doesn't contain directory, use directory in stext */
  723. /* update stext to point to directory */
  724. void
  725. listbox_directory(HWND hwnd, char *path, int listbox, int stext)
  726. {
  727. APIRET rc;
  728. FILEFINDBUF3 findbuf;
  729. HDIR hdir;
  730. ULONG cFilenames = 1;
  731. char *p;
  732. char dpath[MAXSTR];
  733. char spath[MAXSTR];
  734. int i;
  735. ULONG drivenum, drivemap;
  736.     if (strrchr(path, '\\') == (char *)NULL) {
  737.         WinQueryWindowText(WinWindowFromID(hwnd, stext), MAXSTR, dpath);
  738.         if (strlen(dpath)==0)
  739.         strcpy(dpath, szExePath);
  740.         strcpy(spath, dpath);
  741.         if (spath[strlen(spath)-1] != '\\')
  742.         strcat(spath,"\\");
  743.         strcat(spath, path);
  744.     }
  745.     else {
  746.         strcpy(spath, path);
  747.         strcpy(dpath, path);
  748.         p = strrchr(dpath,'\\');
  749.         *(++p)='\0';
  750.         if (strlen(dpath) > 3)
  751.             *(--p)='\0';
  752.     }
  753.     if ( (strlen(dpath) != 3) &&(dpath[strlen(dpath)-1] == '\\') )
  754.             dpath[strlen(dpath)-1] = '\0';
  755.     WinSetWindowText(WinWindowFromID(hwnd, stext), dpath);
  756.     strcat(dpath, (strlen(dpath) > 3) ? "\\*" : "*");
  757.  
  758.     /* stuff in filenames */
  759.     WinSendDlgItemMsg(hwnd, listbox, LM_DELETEALL, MPFROMLONG(0), MPFROMLONG(0));
  760.     hdir = HDIR_CREATE;
  761.     cFilenames = 1;
  762.     rc = DosFindFirst(spath, &hdir, FILE_NORMAL,
  763.         &findbuf, sizeof(findbuf), &cFilenames, FIL_STANDARD);
  764.     while (!rc) {
  765.         WinSendDlgItemMsg(hwnd, listbox, LM_INSERTITEM, 
  766.         MPFROMLONG(LIT_SORTASCENDING), MPFROMP(findbuf.achName));
  767.         cFilenames = 1;
  768.         rc = DosFindNext(hdir, &findbuf, sizeof(findbuf), &cFilenames);
  769.     }
  770.     DosFindClose(hdir);
  771.  
  772.     /* stuff in subdirectory names */
  773.     hdir = HDIR_CREATE;
  774.     cFilenames = 1;
  775.     rc = DosFindFirst(dpath, &hdir, MUST_HAVE_DIRECTORY,
  776.         &findbuf, sizeof(findbuf), &cFilenames, FIL_STANDARD);
  777.     while (!rc) {
  778.         strcpy(spath,"[");
  779.         strcat(spath,findbuf.achName);
  780.         strcat(spath,"]");
  781.         if (strcmp(findbuf.achName, ".") != 0)
  782.           WinSendDlgItemMsg(hwnd, listbox, LM_INSERTITEM, 
  783.         MPFROMLONG(LIT_SORTASCENDING), MPFROMP(spath));
  784.         cFilenames = 1;
  785.         rc = DosFindNext(hdir, &findbuf, sizeof(findbuf), &cFilenames);
  786.     }
  787.     DosFindClose(hdir);
  788.  
  789.     DosQueryCurrentDisk(&drivenum, &drivemap); 
  790.     /* stuff in drive list */
  791.     for (i=1; i<=26; i++) {
  792.       if (drivemap & 1) {
  793.         sprintf(spath,"[-%c-]",i-1+'a');
  794.         WinSendDlgItemMsg(hwnd, listbox, LM_INSERTITEM, 
  795.         MPFROMLONG(LIT_END), MPFROMP(spath));
  796.       }
  797.       drivemap >>= 1;
  798.     }
  799. }
  800.  
  801.